home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / STAND.ARC / HELLO.U1 < prev    next >
Text File  |  1990-03-28  |  338b  |  36 lines
  1. proc main
  2.     local    0,000000,write
  3.     declend
  4.     filen    hello.icn
  5.     line    1
  6.     mark    L1
  7.     var    0
  8.     line    2
  9.     keywd    35
  10.     invoke    1
  11.     unmark
  12. lab L1
  13.     mark    L2
  14.     var    0
  15.     line    3
  16.     keywd    17
  17.     invoke    1
  18.     unmark
  19. lab L2
  20.     mark    L3
  21.     mark0
  22.     var    0
  23.     line    4
  24.     keywd    15
  25.     invoke    1
  26.     pop
  27. lab L4
  28.     efail
  29. lab L5
  30.     unmark
  31. lab L3
  32.     pnull
  33.     line    5
  34.     pfail
  35.     end
  36.